﻿
Partial Class masterpages_Default
    Inherits System.Web.UI.Page
    Dim codigo As String = ""


    Protected Sub BtnBusqueda_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnBusqueda.Click
        Dim sUrl As String = Request.Url.Authority()
        sUrl = "http://" + sUrl
        codigo += sUrl & "/Santafe/registro/buscar.aspx?modulo=1&opt=1"
        Response.Redirect(codigo)
    End Sub

    Protected Sub BtnNuevo_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnNuevo.Click
        Dim sUrl As String = Request.Url.Authority()
        sUrl = "http://" + sUrl
        codigo += sUrl & "/Santafe/Registro/Nuevo.aspx"
        Response.Redirect(codigo)
    End Sub

    Protected Sub BtnEmpadres_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnEmpadres.Click
        Dim sUrl As String = Request.Url.Authority()
        sUrl = "http://" + sUrl
        codigo += sUrl & "/Santafe/Empadres/programa.aspx?modulo=8&opt=1"
        Response.Redirect(codigo)
    End Sub

    Protected Sub BtnFotos_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnFotos.Click
        Dim sUrl As String = Request.Url.Authority()
        sUrl = "http://" + sUrl
        codigo += sUrl & "/Santafe/photos/EditarFoto.aspx?opt=2&modulo=3"
        Response.Redirect(codigo)
    End Sub

    Protected Sub BtnFiltro_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnFiltro.Click
        Dim sUrl As String = Request.Url.Authority()
        sUrl = "http://" + sUrl
        codigo += sUrl & "/Santafe/Reportes/Filtros.aspx?modulo=10&opt=1"
        Response.Redirect(codigo)
    End Sub

    Protected Sub BtnCatalogos_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnCatalogos.Click
        Dim sUrl As String = Request.Url.Authority()
        sUrl = "http://" + sUrl
        codigo += sUrl & "/Santafe/Utilerias/CatGeneral.aspx?modulo=11&opt=1"
        Response.Redirect(codigo)
    End Sub

    Protected Sub BtnContrasena_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnContrasena.Click
        Dim sUrl As String = Request.Url.Authority()
        sUrl = "http://" + sUrl
        codigo += sUrl & "/Santafe/Configura/CambioContraseña.aspx?modulo=12&opt=1"
        Response.Redirect(codigo)
    End Sub

    Protected Sub BtnEstado_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnEstado.Click
        Dim sUrl As String = Request.Url.Authority()
        sUrl = "http://" + sUrl
        codigo += sUrl & "/Santafe/Estado/EdoGanaderia.aspx?opt=2&modulo=6"
        Response.Redirect(codigo)
    End Sub
End Class
